module Customer (Customer, Name, customer) where

-- customer's data structure
data Customer = Customer { ctmName :: Name }
type Name = String


customer :: Name -> Customer
customer name = Customer name



